home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / find.fil < prev    next >
Text File  |  1995-03-23  |  2KB  |  74 lines

  1. Article 1411 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!uunet!mcsun!hp4nl!charon!cwi.nl
  3. From: jurjen@cwi.nl (Jurjen NE Bos)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: Three little HP48 utilities
  6. Message-ID: <2201@charon.cwi.nl>
  7. Date: 21 Sep 90 07:13:01 GMT
  8. Sender: news@cwi.nl
  9. Organization: STORC, Veldhoven
  10. Lines: 60
  11.  
  12.  
  13. Here are three very simple programs.  I find them not very interesting, but
  14. together they're just good enough to be postable.
  15. Have fun!
  16.     Jurjen
  17.  
  18.  
  19. PFF is a file finder.
  20. Put in your HOME directory under the name PFF.
  21. Input: a name. Call from the HOME directory.
  22. Output: the list of all PATHs where name resides.
  23.  
  24. %%HP: T(3)A(R)F(,); @checksum #6DFFh
  25. \<<
  26.   IF VARS OVER POS
  27.   THEN PATH 1 \->LIST
  28.   ELSE { }
  29.   END SWAP 15 TVARS \-> name dir
  30.   \<<
  31.     IF dir { } \=/
  32.     THEN 1 dir SIZE
  33.       FOR var dir var GET EVAL name PFF + UPDIR
  34.       NEXT
  35.     END
  36.   \>>
  37. \>>
  38.  
  39. FF is a file finder that is meant for interactive use.
  40. Put it in your HOME directory under the name FF.
  41. Input: a name. Call from the HOME directory.
  42. Output: if the name is found: nothing, but the current directory will
  43. contain the name, and the menu will be the row of the VAR menu containing
  44. the name.  Otherwise, the name will be on the stack and the menu and
  45. directory unchanged.
  46. %%HP: T(3)A(R)F(,); @Checksum: #86CAh
  47. \<<
  48.   IF DUP VTYPE 0 \>=
  49.   THEN VARS SWAP POS 1205 + 6 / IP 100 / MENU 0 DOERR
  50.   END 15  \-> dir
  51.   \<<
  52.     IF dir { } \=/
  53.     THEN 1 dir SIZE
  54.       FOR var dir var GET EVAL FF UPDIR
  55.       NEXT
  56.     END
  57.   \>>
  58. \>>
  59.  
  60. FRE is a program that gives the number of free bytes, just like MEM,
  61. but does not do the garbage collection.  Gives you a good idea how often a
  62. garbage collection takes place.  Tip: put 'FRE' in EQ and plot it.  Scale Y
  63. from 0 to 30000.  (Autoscale get terribly confused).
  64. (To be converted with ASC\->)
  65. "D9D2016F50FBD81ED2A2EF9A2B21308D43"
  66.  
  67. --
  68. |                 | "Never imagine yourself not to be otherwise than what |
  69. | Jurjen N.E. Bos | it might appear to others that what you were or might |
  70. |                 | have been was not otherwise than what you had been    |
  71. |  jurjen@cwi.nl  | would have appeared to them to be otherwise."         |
  72.  
  73.  
  74.